home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 22 / CU Amiga Magazine's Super CD-ROM 22 (1998)(EMAP Images)(GB)[!][issue 1998-05].iso / PowerPC / Programming / vbcc / machines / amiga68k / libsrc / _lmods.c < prev    next >
Encoding:
Text File  |  1997-12-30  |  351 b   |  17 lines
  1. long _lmods(long z,long n)
  2. {
  3.     unsigned long t=1,uz,un;int s=0;
  4.     if(!n) return(0);
  5.     if(z>=0) uz=z; else {uz=-z;s=1;}
  6.     if(n>=0) un=n; else un=-n;
  7.     while(un<=0xffffffff/2&&un<=uz/2){
  8.         un*=2;t++;
  9.     }
  10.     while(t){
  11.         if(uz>=un){ uz-=un;}
  12.         t--;
  13.         un/=2;
  14.     }
  15.     if(s) return(-(long)uz); else return((long)uz);
  16. }
  17.